﻿Imports KumaSystem.Activities.FileSystem
Imports NUnit.Framework
Imports Microsoft.Activities.UnitTesting

<TestFixture()>
Public Class TestExecuteApplication

    <Test()>
    Public Sub ExecuteTestNormal()

        Dim testActivity As New ExecuteApplicationActivity With {
            .TargetFile = "dir", .Arguments = "d:\", .AsyncExecute = False, .OSCommand = True}
        Dim wfInvoker As New WorkflowInvokerTest(testActivity)
        wfInvoker.TestActivity()

        wfInvoker.AssertOutArgument.AreEqual("Result", 1)

        Dim testActivity2 As New ExecuteApplicationActivity With {
    .TargetFile = "notepad.exe", .AsyncExecute = False}
        Dim wfInvoker2 As New WorkflowInvokerTest(testActivity2)
        wfInvoker2.TestActivity()

    End Sub

End Class
